home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
Q-R
/
QWIKNOTES.cpt
/
QwikNotes
/
background_2731.txt
< prev
next >
Wrap
Text File
|
1987-11-01
|
8KB
|
368 lines
-- background: 2731 from stack: in
-- bmap block id: 8079
-- flags: 4000
-- background id: 0
-- name: Bkg Notes
-- part 1 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=380 top=20 right=65 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
go to card id 5341 of stack "Home"
end mouseUp
-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=37 top=86 right=285 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: Notes
-- part 4 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=441 top=20 right=65 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Qwik About...
----- HyperTalk script -----
on mouseUp
visual effect barn door open
go to card id 3252
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=141 top=20 right=64 bottom=187
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
get the selection
visual effect zoom open
go to "Address"
if it is not empty then find it
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=320 top=20 right=65 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
get the seconds
convert it to dateItems
put ((item 1 of it) - 1987) *2 into whichSix
if item 2 of it > 6 then add 1 to whichSix
visual effect zoom open
if whichSix < 1 then go card 1 of stack "DateBook"
else if whichSix > 5 then go card 5 of stack "DateBook"
else
go to card whichSix of stack "DateBook"
send "bracketWeek" && the seconds to this card
end if
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=261 top=20 right=65 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
set lockScreen to true
go stack "DateBook"
goWeekly the seconds
set lockScreen to false
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=203 top=20 right=65 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
go to card "First Do" of "Datebook"
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=284 right=307 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
visual effect wipe left
go to next card
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=442 top=284 right=307 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
visual effect wipe right
go to previous card
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=185 top=283 right=328 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 3877 / 3877
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Note
----- HyperTalk script -----
on mouseUp
set the cursor to 4
DoMenu New Card
wait 30
put the abbreviated date into field "Date"
put the time into field "Time"
set the cursor to 1
tabKey
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=299 top=283 right=328 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Note
----- HyperTalk script -----
on mouseUp
beep
answer "Delete this card?" with "Cancel" or "Delete"
if it = "Cancel" then exit mouseUp
set the cursor to 4
DoMenu Delete Card
visual effect venetian blinds
go to previous card
set the cursor to 1
end mouseUp
-- part 16 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=300 top=70 right=86 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Date
-- part 17 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=429 top=70 right=86 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name: Time
-- part 26 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=78 top=20 right=64 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 5619 / 5619
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menubar
----- HyperTalk script -----
on mouseUp
show menubar
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=6 top=20 right=65 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 10042 / 10042
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: QwikNotes
----- HyperTalk script -----
on mouseUp
visual effect zoom open
go to stack "QwikNotes"
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=241 top=283 right=328 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 24575 / 24575
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Note
----- HyperTalk script -----
on mouseUp
set the cursor to 4
DoMenu Print Card
visual effect venetian blinds
set the cursor to 1
end mouseUp
-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=306 right=329 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 7540 / 7540
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual effect iris close
pop card
end mouseUp
-- part 29 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=362 top=283 right=328 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 11134 / 11134
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Note
----- HyperTalk script -----
on mouseUp
doMenu "Find..."
end mouseUp